home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 33 / Amiga Format AFCD33 (Issue 117, Dec 1998).iso / -seriously_amiga- / programming / e / showmodulegmw / smgmw.lha / ShowmoduleGMW / ARexx / showmodule4.ged
Text File  |  1998-08-06  |  2KB  |  86 lines
  1. /* $VER: 0.20, ©1998 David Lidström. Showmodule
  2. \\
  3. //   For GoldED 4+
  4. \\
  5. //   Place the cursor over the ' at the name of a module name
  6. \\   in an amiga e code and execute this script. If Smgmw is running, the module
  7. //   will be loaded into the program.
  8. \\
  9. */
  10.  
  11. OPTIONS RESULTS                             /* enable return codes     */
  12.  
  13. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  14.     address 'GOLDED.1'
  15.  
  16. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  17.  
  18. if (RC ~= 0) then
  19.     exit
  20.  
  21. OPTIONS FAILAT 6                            /* ignore warnings         */
  22.  
  23. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  24.  
  25. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  26.  
  27. IF SHOW(PORTS, 'SMGMWEBBER')=0 THEN do
  28.     'REQUEST BODY="Please start the Showmodule GUI before using this script"'
  29.     SIGNAL xit
  30. END
  31.  
  32. 'QUERY CODE VAR COD'
  33. IF COD!=39 THEN SIGNAL xit
  34.  
  35. 'QUERY LINE VAR LINE'
  36. 'QUERY COLUMN VAR COL'
  37.  
  38. 'FIND STRING=' D2C(39) ' NEXT'
  39.  
  40. 'QUERY COLUMN VAR COL2'
  41. 'QUERY LINE VAR LINE2'
  42. IF COL=COL2 THEN SIGNAL xit
  43. IF LINE=LINE2 THEN DO
  44.  
  45. 'GOTO LINE='LINE' COLUMN='COL+1
  46. 'MARK SET BEGIN COLUMN FLOW=TRUE'
  47. 'GOTO COLUMN='COL2
  48. 'CLIP COPY UNIT 0'
  49. 'MARK HIDE'
  50.  
  51. ADDRESS SMGMWEBBER
  52.     'GET CLIPBOARD 0'
  53.     MODULENAME=RESULT
  54.     IF RC=0 THEN DO
  55.     'LOADMODULE "'MODULENAME'"'
  56.     'GET ISLOADED'
  57.     SUCCESS=RC
  58.  
  59.     IF SUCCESS=1 THEN DO
  60.         'ICONIFY DISABLE'
  61.     END
  62.     END
  63.  
  64. ADDRESS
  65.  
  66. END
  67.  
  68.  
  69. 'GOTO LINE='LINE' COLUMN='COL
  70.  
  71. /* ---------------------------- END OF YOUR CODE --------------------- */
  72.  
  73. xit:
  74.  
  75. 'UNLOCK' /* VERY important: unlock GUI */
  76.  
  77. exit
  78.  
  79. SYNTAX:
  80.  
  81. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  82.  
  83. 'UNLOCK'
  84.  
  85. exit
  86.